www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminArticle\D_chk_edit_acticle.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <!--#include file=inc_lanmu_bl.asp--> <% AJAXshowLoader() %> <% biao="[ND_Article_class]" biao2="[ND_Article]" sys_content_type=trim(request("sys_content_type")) set rs44g=server.CreateObject("adodb.recordset") rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1 if find_dataw(lanmu_taba,rs44g("id"),2)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if Function ChkNumeric(CHECK_ID) IF CHECK_ID = "1" or CHECK_ID =1 Then ChkNumeric = "1" Else ChkNumeric = "0" End If if CHECK_ID ="" then ChkNumeric = "0" end if End Function Function ChkFormStr(ByVal str) Dim fString fString = str If IsNull(fString) Then ChkFormStr = "" Exit Function End If fString = Replace(fString, "'", "'") fString = Replace(fString, Chr(34), """) fString = Replace(fString, Chr(13), "") fString = Replace(fString, Chr(10), "") fString = Replace(fString, Chr(9), "") fString = Replace(fString, ">", ">") fString = Replace(fString, "<", "<") fString = Replace(fString, " ", " ") ChkFormStr = fString End Function Function Formatime(ByVal datime) datime = Trim(Replace(Trim(datime), vbNewLine, "")) If Not IsDate(datime) Then Formatime = Now() Exit Function End If If Len(datime) < 11 Then Formatime = CDate(datime & " " & FormatDateTime(Now, 3)) Else Formatime = CDate(datime) End If Exit Function End Function if session(nd_admin_cach_varb_name)="" then if request.cookies(nd_admin_cach_varb_name)="" then uuuaa="" else uuuaa=request.cookies(nd_admin_cach_varb_name) end if else uuuaa=session(nd_admin_cach_varb_name) end if if sys_content_type="" then %> <script language="javascript"> alert("url参数sys_content_type不能为空"); history.go(-1); </script> <% response.end end if err1=0 if request("classid")="no" then err1=1 %> <script language="javascript"> alert("请先选择分类"); history.go(-1); </script> <% response.end end if if request("title")="" then err1=1 %> <script language="javascript"> alert("请填写标题"); history.go(-1); </script> <% response.end end if if request("Content")="" then err1=1 %> <script language="javascript"> alert("请填写内容"); history.go(-1); </script> <% response.end end if if Not IsNumeric(Request("AllHits")) then err1=1 %> <script language="javascript"> alert("初始点击数请输入整数"); history.go(-1); </script> <% response.end end if if Not IsNumeric(Request("PointNum")) then err1=1 %> <script language="javascript"> alert("所需点数 请输入整数"); history.go(-1); </script> <% response.end end if if Not IsNumeric(Request("dings")) then err1=1 %> <script language="javascript"> alert("被顶次数 请输入整数"); history.go(-1); </script> <% response.end end if if err1=0 then set rs441=server.CreateObject("adodb.recordset") rs441.open "select * from "&biao&" where id="&request("classid"),conn,1,3 if rs441("is_link_class")="1" then %> <script language="javascript"> alert("该分类为外部连接,无法添加文章"); history.go(-1); </script> <% response.end else isTop = ChkNumeric(Request.Form("isTop")) isBest = ChkNumeric(Request.Form("isBest")) isForbid = ChkNumeric(Request.Form("Forbidac")) isAccept = ChkNumeric(Request.Form("issh")) set rs44=server.CreateObject("adodb.recordset") rs44.open "select * from "&biao2&" where id="&request("id"),conn,1,3 rs44("sys_content_type")=sys_content_type rs44("title")=request("title") rs44("sub_title")=request("subtitle") rs44("classid")=request("classid") rs44("SpecialID")=request("spcid") rs44("titleColor")=request("ColorMode") rs44("titleFont")=request("FontMode") rs44("index_page_pic")=Request("ImageUrl") rs44("content")=Request("Content") rs44("is_outlink")=Request("isoutLink") rs44("outlink")=Request("TurnLinkUrl") rs44("Author_nick")=Request("Author") rs44("Comefrom")=Request("ComeFrom") 'rs44("is_new")= rs44("is_tuijian")=isBest rs44("isTop")=isTop rs44("Hits")=CLng(Request.Form("AllHits")) rs44("dianshuo_to_look")=request("PointNum") rs44("HitsTime")=date() rs44("WriteTime")=Formatime(Trim(Request.Form("WriteTime"))) rs44("username")=uuuaa 'rs44("out_and_inner_img_list")= 'rs44("UploadImage_list")= rs44("Uploadfile_list")=Trim(Request.Form("UploadFileList")) rs44("is_shenhe")=isAccept rs44("is_can_pinlun")=isForbid rs44("is_auto_fenye")=ChkNumeric(Request.Form("AutoPages")) rs44("xiangguan_wenzhang_keywords_list")=ChkFormStr(Request.Form("Related")) rs44("xing_ji")=Trim(Request.Form("star")) 'rs44("update_time_input")= rs44("biaozi")=Trim(Request.Form("BriefTopic")) rs44("liulang_dengji_group_id")=request("liulanggroup") rs44("update_time_for_make_html")=now() rs44("dings")=CLng(Request.Form("dings")) rs44.update %> <script language="javascript"> alert("修改成功"); //self.location="D_admin_acticle.asp?sys_content_type=<%=sys_content_type%>"; self.location="D_htm_edited_cont.asp?sys_content_type=<%=sys_content_type%>"; </script> <% end if end if %> <% AJAXcloseLoader() %>